`ke` <-
function(cl,v,...)cl/v

